perm filename DPDP.F4[SYS,HE] blob sn#004153 filedate 1972-05-30 generic text, type T, neo UTF8
00100		REAL FUNCTION ADPFOR(N,A,I,X,E)
00200		DIMENSION A(N,N),X(N)
00300		DOUBLE PRECISION SUM
00400		SUM=0
00500		DO 1 J=1,N
00600	1	SUM=SUM+A(J,I)*X(J)
00700		SUM=E-SUM
00800		ADPFOR=SUM
00900		RETURN
01000		END